home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Forever 4
/
Atari Forever 4.zip
/
Atari Forever 4.iso
/
PD_THEMA
/
CLI
/
COMMAND.410
/
AUTO.COM
next >
Wrap
Text File
|
1998-03-14
|
5KB
|
195 lines
;
; -----------------------------------
; Installations-Batch für COMMAND.PRG
; -----------------------------------
;
~cls
~gosub init
;
chr 'a' Buchstabe_a ; untere Laufwerkbezeichnung
chr 'z' Buchstabe_z ; obere Laufwerkbezeichnung
crson
;
lbl benutzereingabe
cls
echo %n%2Bitte Ziellaufwerk und Zielordner eingeben. Das Ziellaufwerk muß ohne ab-
echo %2schließenden Doppelpunkt angegeben werden (z.B. c)!
echo %2Der Zielordner muß ohne abschließenden Backslash ('\') angegeben werden. Das
echo %2Wurzelverzeichnis muß durch einfaches Drücken von RETURN gewählt werden!
echo
cleararg ; keine externe Parametrisierung
inquire %2Ziellaufwerk:
?arg 0 goto laufwerk_ist_da
goto benutzereingabe
lbl laufwerk_ist_da
let drive$ $0
length Laenge drive$
if Laenge <> 1 then goto benutzereingabe ; nur ein Zeichen erlaubt
chr '§drive$' Laufwerk
|= Laufwerk 32 ; Kleinbuchstaben
if Laufwerk < Buchstabe_a then goto benutzereingabe ; komisches Laufwerk
if Laufwerk > Buchstabe_z then goto benutzereingabe ; komisches Laufwerk
;
inquire %2Zielordner :
?arg 1 right $1 \ goto benutzereingabe
echo
?arg 1 gosub checkziel
cls
getdrv von$
size0 $0:$1\batch mkdir $0:$1\batch
size0 $0:$1\extcom mkdir $0:$1\extcom
size0 $0:$1\docu mkdir $0:$1\docu
echo Kopiere Dateien ...
cp com*.prg $0:$1\ -v
cd $0:$1\extcom\
cp §von$:archiv\lhxarc.ttp -v
off 8
echo %nEntpacke Programm-Dateien ...
lhxarc -o §von$:archiv\extern
echo
exist ..\command.hlp rm ..\command.hlp -pv
cd ..
extcom\lhxarc -o §von$:archiv\text command.hlp
cd batch
echo %nEntpacke Batch-Dateien ...
..\extcom\lhxarc.ttp -o §von$:batch\batch
echo
let datei$ ALIAS.DAT
size0 ..\§datei$ goto KeineAliasDatei
gosub JaNein
if taste <> 0x6a then goto NichtErzeugen
;
; ---------------------
; ALIAS.DAT verschieben
; ---------------------
;
exist ..\alias.dat cp ..\alias.dat ..\alias.old
exist ..\alias.dat rm ..\alias.dat -pv
lbl KeineAliasDatei
mv -v alias.dat ..\
;
lbl NichtErzeugen
cd ..\docu
echo %nAuspacken von COMMAND.TXT ...
..\extcom\lhxarc.ttp -o §von$:archiv\text command.txt
;
cd ..
let datei$ AUTO.COM
size0 §datei$ goto AutoComErzeugen
gosub JaNein
if taste <> 0x6a then goto DasEndeIstNah
;
; ------------------------
; AUTO.COM zusammenbasteln
; ------------------------
;
lbl AutoComErzeugen
echo %nErzeuge §datei$ ...
exist auto.com cp auto.com *.old
exist auto.com rm -vp auto.com
echo >auto.com ~off 13 ;notext
echo >>auto.com off 6 ;kein history.dat
echo >>auto.com appendenv TAB=4
echo >>auto.com echo %%033Y7%%1
?arg 1 left $1 \ echo >>auto.com path $0:$1\extcom\
?arg 1 left $1 \ goto weiter_gehts
?arg 1 echo >>auto.com path $0:\$1\extcom\
?arg 1 echo >>auto.com appendenv MANUAL=$0:\$1\docu
?arg 1 goto weiter_gehts
echo >>auto.com path $0:\extcom\
echo >>auto.com appendenv MANUAL=$0:\docu
lbl weiter_gehts
?arg 1 left $1 \ goto slash_schon_da
?arg 1 setarg \
lbl slash_schon_da
echo >>auto.com newalias as batch $0:$2$1\batch\as
echo >>auto.com newalias cc batch $0:$2$1\batch\cc
echo >>auto.com newalias test batch $0:$2$1\batch\test
lbl DasEndeIstNah
bell
echo %n%n%n%9%9%6%033p *** Installation beendet *** %033q%n%n
wait 1
bell
erase ; Müll beseitigen
cleararg ; - " -
exit ; That's it
;
;
lbl ganz_falsch
cleararg
echo %n%2FEHLER! '\' bzw. '/' nicht zulässig%n
goto benutzereingabe
;
lbl checkziel
exist $0:$1 goto schon_da
mkdir $0:$1
return
;
lbl schon_da
if status = 16 then return
echo Zielverzeichnis kann nicht erzeugt werden -> Abbruch
stop
;
;
; ----------------
; Initialisierung:
; ----------------
;
lbl init
~off 13
off 6
off 15
off 8
;
erase ; alle Variablen löschen
;
chr 'j' ja ; Wird bei Ja/Nein-Abfragen gebraucht
chr 'n' nein ; - " -
;
crsoff
echo %n%n
echo %3*******************************************************
echo %3* *
echo %3* Installation von %033pCOMMAND.PRG%033q *
echo %3* *
echo %3*******************************************************%n%n%n
echo %3 README.TXT lesen (j(a) / n(ein) / ESC = Abbruch)
;
repeat
inkey taste
&= taste 255 ; keine Scancodes
if taste = 27 then exit ; ESC-Taste -> raus aus Installation
|= taste 32 ; Kleinbuchstaben
if taste = nein then return
until taste = ja
;
; ----------------------
; Ausgabe von README.TXT
; ----------------------
;
cls
more -s readme.txt
wait
return
;
;
; -----------------------
; holt 'j' oder 'n'-Taste
; -----------------------
;
lbl JaNein
echo %n%n %033p §datei$ %033q überschreiben (j/n) ? %l
bell
while 1 = 1 ; Endlosschleife
inkey taste
&= taste 255 ; kein Scan-Code
|= taste 32 ; Kleinbuchstaben
if taste = ja then wexit ; Ja
if taste = nein then wexit ; Nein
wend
;
if taste = ja then echo Ja else echo Nein
echo
return